﻿<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
Option Explicit

Session.CodePage = 65001

Const NAME_REQUIRED = 1
Const CONTACTPERSON_REQUIRED = 2
Const ADDRESS_REQUIRED = 3
Const EMAIL_REQUIRED = 4
Const INVALID_EMAIL = 5
Const VISITORCOUNT_REQUIRED = 6
Const INVALID_VISITORCOUNT = 7
Const TEACHERCOUNT_REQUIRED = 8
Const INVALID_TEACHERCOUNT = 9
Const VISITDATE_REQUIRED = 10
Const INVALID_VISITDATE = 11
Const ARRIVALTIME_REQUIRED = 12
Const INVALID_ARRIVALTIME = 13
Const LEAVETIME_REQUIRED = 14
Const INVALID_LEAVETIME = 15
Const LEAVETIME_CANNOTEARLIER_ARRIVALTIME = 16
Const CONTACTPHONE_REQUIRED = 17
Const SUCCESS_MSG = 100
Const SUCCESS_SUBJECT = 101
Const BACK_BUTTON = 200
Const UNKNOWN_ERROR = 999

Function IIf(condition,value1,value2)
	If condition Then IIf = value1 Else IIf = value2
End Function


Function IsValidEmail(myEmail)
  dim regEx
  
  IsValidEmail = True
  set regEx = New RegExp
  
  regEx.IgnoreCase = True
  
  regEx.Pattern = "^[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,6}$"
  IsValidEmail = regEx.Test(myEmail)
End Function

Function IsValidDate(DateStr)
  On Error Resume Next
  Dim DateParts
  Dim MonthPart, DayPart, YearPart
  IsDate = False
  DateParts = split(DateStr, "/")
  if IsArray(DateParts) then 
   if UBound(DateParts)=2 then
      DayPart=CInt(DateParts(0))
      MonthPart=CInt(DateParts(1))
      YearPart=CInt(DateParts(2))
      IsDate=(DayPart>=1 and DayPart<=31) and (Monthpart>=1) and (MonthPart<=12) 
   end if
  end if
End Function

Function IsValidFutureDate(DateStr)
  On Error Resume Next
  Dim DateParts
  Dim MonthPart, DayPart, YearPart
  IsValidFutureDate = False
  DateParts = split(DateStr, "/")
  if IsArray(DateParts) then 
   if UBound(DateParts)=2 then
      DayPart=CInt(DateParts(0))
      MonthPart=CInt(DateParts(1))
      YearPart=CInt(DateParts(2))
      if (DayPart>=1 and DayPart<=31) and (MonthPart>=1) and (MonthPart<=12) then
	IsValidFutureDate=DateSerial(YearPart, MonthPart, DayPart)>=Date
      end if 
   end if
  end if
End Function

Function IsValidTime(TimeStr)
  Dim TimeParts
  Dim HourPart, MinPart

  IsValidTime = False

  TimeParts = split(TimeStr, ":")
  if UBound(TimeParts)=1 then
     HourPart = CInt(TimeParts(0))
     MinPart = CInt(TimeParts(1))
     IsValidTime=(HourPart>=0) and (HourPart<=23) and (MinPart>=0) and (MinPart<=59)
  end if
End Function

Function IsValidInteger(number)
  dim regex
  set regEx = New RegExp
  
  regEx.IgnoreCase = True
  
  regEx.Pattern = "^[0-9]+$"
  IsValidInteger = regEx.Test(number)
End Function

Function GetErrorMessage(Language, MsgNum)
  GetErrorMessage = ""  
  select case MsgNum
    case NAME_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the name"
         case "chi"
            GetErrorMessage = "請填寫名稱"
         case "por"
            GetErrorMessage = "Por favor preencher o nome"
       end select
    case CONTACTPERSON_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the contact person"
         case "chi"
            GetErrorMessage = "請填寫聯絡人"
         case "por"
            GetErrorMessage = "Por favor preencher o nome do respons&aacute;vel"
       end select
    case CONTACTPHONE_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the contact phone"
         case "chi"
            GetErrorMessage = "請填寫聯絡人電話"
         case "por"
            GetErrorMessage = "Por favor preencher o n&uacute;mero do telefone"
       end select
    case ADDRESS_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the address"
         case "chi"
            GetErrorMessage = "請填寫地址"
         case "por"
            GetErrorMessage = "Por favor preencher o endere&ccedil;o"
       end select
    case EMAIL_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the e-mail address"
         case "chi"
            GetErrorMessage = "請填寫電郵地址"
         case "por"
            GetErrorMessage = "Por favor preencher o endere&ccedil;o e-mail, se faz favor"
       end select
    case INVALID_EMAIL
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the correct e-mail address"
         case "chi"
            GetErrorMessage = "請填寫正確的電郵地址"
         case "por"
            GetErrorMessage = "Por favor preencher o endere&ccedil;o e-mail correcto"
       end select
    case VISITORCOUNT_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the visitor count"
         case "chi"
            GetErrorMessage = "請填寫參觀人數"
         case "por"
            GetErrorMessage = "Por favor preencher o n&uacute;mero de visitantes"
       end select
    case INVALID_VISITORCOUNT
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the correct visitor count"
         case "chi"
            GetErrorMessage = "請填寫正確的參觀人數"
         case "por"
            GetErrorMessage = "Por favor preencher o n&uacute;mero correcto de visitantes"
       end select
    case TEACHERCOUNT_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the staff/teacher count"
         case "chi"
            GetErrorMessage = "請填寫隨行工作人員數"
         case "por"
            GetErrorMessage = "Por favor preencher o n&uacute;mero de assistentes/professores"
       end select
    case INVALID_TEACHERCOUNT
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the correct staff/teacher count"
         case "chi"
            GetErrorMessage = "請填寫正確的隨行工作人員數"
         case "por"
            GetErrorMessage = "Por favor preencher o n&uacute;mero correcto de assistentes/professores"
       end select
    case VISITDATE_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the visit date"
         case "chi"
            GetErrorMessage = "請填寫參觀日期"
         case "por"
            GetErrorMessage = "Por favor preencher a data de visita"
       end select
    case INVALID_VISITDATE
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the visit date in the correct format (d/m/y)"
         case "chi"
            GetErrorMessage = "請填寫正確的參觀日期 (日/月/年)"
         case "por"
            GetErrorMessage = "Por favor preencher a data de visita na forma correcta (d/m/a)"
       end select
    case ARRIVALTIME_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the arrival time"
         case "chi"
            GetErrorMessage = "請填寫到館時間"
         case "por"
            GetErrorMessage = "Por favor preencher a hora de chegada"
       end select
    case INVALID_ARRIVALTIME
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the arrival time in the correct format (h:m)"
         case "chi"
            GetErrorMessage = "請填寫正確的到館時間 (時:分)"
         case "por"
            GetErrorMessage = "Por favor preencher a hora de chegada na forma correcta (h:m)"
       end select
    case LEAVETIME_REQUIRED
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the leave time"
         case "chi"
            GetErrorMessage = "請填寫離館時間"
         case "por"
            GetErrorMessage = "Por favor preencher a hora de sa&iacute;da"
       end select
    case INVALID_LEAVETIME
       select case Language
         case "eng" 
	    GetErrorMessage = "Please fill in the leave time in the correct format (h:m)"
         case "chi"
            GetErrorMessage = "請填寫正確的離館時間 (時:分)"
         case "por"
            GetErrorMessage = "Por favor preencher a hora de sa&icute;da na forma correcta (h:m)"
       end select
    case LEAVETIME_CANNOTEARLIER_ARRIVALTIME
       select case Language
         case "eng" 
	    GetErrorMessage = "The leave time cannot be earlier than the arrival time"
         case "chi"
            GetErrorMessage = "離館時間不可以早過到館時間"
         case "por"
            GetErrorMessage = "A hora de sa&icute;da n&atilde;o pode ser antes da hora de chegada"
       end select
    case SUCCESS_MSG
       select case Language
         case "eng" 
	    GetErrorMessage = "Thanks for your appointment. Our staff will review the application form and will contact you for further arrangement soon."
         case "chi"
            GetErrorMessage = "多謝您的預約。我們的工作人員將會處理這申請表，並會在2個工作天內與您聯絡，安排參觀行程。"
         case "por"
            GetErrorMessage = "Obrigado pela sua marca&ccedil;&atilde;o. O seu pedido vai ser processado e vamos contact&aacute;-lo em breve para organizar a visita."
       end select
    case SUCCESS_SUBJECT
       select case Language
         case "eng" 
	    GetErrorMessage = "Thanks for your appointment to the Communications Museum of Macao"
         case "chi"
            GetErrorMessage = "多謝您前往參觀通訊博物館的預約"
         case "por"
            GetErrorMessage = "Obrigado pela sua marca" & chrw(231) & chrw(227) & "o de visita ao Museu das Comunica" & chrw(231) & chrw(245) & "es"
       end select
    case BACK_BUTTON
       select case Language
         case "eng" 
	    GetErrorMessage = "Back"
         case "chi"
            GetErrorMessage = "返回"
         case "por"
            GetErrorMessage = "Voltar"
       end select

    case UNKNOWN_ERROR
       select case Language
         case "eng" 
	    GetErrorMessage = "A system error has occurred. Please contact us by phone."
         case "chi"
            GetErrorMessage = "系統發生錯誤。 請用電話聯絡我們。"
         case "por"
            GetErrorMessage = "Um erro ocorreu no sistema. Se faz favor, contacte-nos por telefone."
       end select
  end select
End Function

Function SendMail(HtmlBody, Subject, FromAddress, ToAddress)
  Dim myMail
  Set myMail=CreateObject("CDO.Message")
  myMail.Subject=Subject  
  if FromAddress="" Then
	FromAddress = Chr(34) & Request.Form("email") & Chr(34) & " <webmaster@macao.communications.museum>"
  End If
  if Request.Form("email")<>"" then
     ' myMail.Fields.Item("urn:schemas:mailheader:Reply-To")=Request.Form("email")
     myMail.ReplyTo=Request.Form("email")
  end if
  myMail.From=FromAddress 
  myMail.BodyPart.CharSet = "utf-8"
  myMail.To=ToAddress
  MyMail.Bcc="webmaster@macao.communications.museum"
  myMail.HtmlBody=HtmlBody
  myMail.HTMLBodyPart.Charset = "utf-8" 
  myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.215.186"
  myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@macao.communications.museum"
  'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "info0621"
  myMail.Configuration.Fields.Update
  myMail.Send

  Set myMail=Nothing
  SendMail=True
End Function

Function HTMLRow(caption, fieldname)
 HTMLRow = "<tr><th valign=top align=right width=30% >" & caption & "</th><td>" & Server.HTMLEncode(Request.Form(fieldname)) & "</td></tr>" 
End Function

Function GetMailBody(InternalUse)
  Dim M
  
  M = "<html xmlns="http://www.w3.org/1999/xhtml">"
  M = M & "<head><title>團體及學校參觀申請表</title><meta http-equiv='Content-Type' content='text/html; charset=utf-8'></head>"
  M = M & "<body>"
  If InternalUse Then
	  M = M & "<table border=1 width=100% >"
	  M = M & "<tr><th width=50% >Parecer</th><th width=50% >Despacho</th></tr>"
	  M = M & "<tr height=120><td>&nbsp;</td><td>&nbsp;</td></table>"
  Else
	M = M & GetErrorMessage(Language, SUCCESS_MSG) & "<br><br>"
  End If
  M = M & "<table border=1 width=100% ><tr><th colspan='2'><!--<img src='http://macao.communications.museum/images/logo1.jpg' height=80><h3>-->通訊博物館團體及學校參觀申請表 Marca&ccedil;&atilde;o de Visita do Museu</h3></th></tr>"
  If InternalUse Then
	  M = M & "<tr><th align=right>申請編號 Requerimento n.&#186;:</th><td>&nbsp;</td></tr>"
  End If
  M = M & "<tr><th align=right valign=top>團體學校名稱 Designa&ccedil;&atilde;o do grupo/escola:</th><td>" & Server.HTMLEncode(Request.Form("schoolid")) & "-" & Server.HTMLEncode(Request.Form("name")) & "</td></tr>"
  M = M & HTMLRow("地址 Endere&ccedil;o:", "address")
  M = M & HTMLRow("聯絡人姓名 Nome do respons&aacute;vel:", "contactPerson")
  M = M & HTMLRow("聯絡人電話 Telefone n.&#186;:", "contactPhone")
  M = M & HTMLRow("傳真機 Fax:", "fax")
  M = M & HTMLRow("電郵地址 e-mail:", "email")
  M = M & HTMLRow("參觀人數 N.&#186; de visitantes:", "visitorsCount")
  M = M & HTMLRow("隨行工作人員(老師)數目 N.&#186; de assistentes/professores", "teachersCount")

  M = M & "<tr><th align=right >總人數 Total:</td><td>"
  If IsValidInteger(Request.Form("visitorsCount")) and IsValidInteger(Request.Form("teachersCount")) Then
 	M = M & CInt(Request.Form("visitorsCount"))+CInt(Request.Form("teachersCount"))
  Else
	M = M & "&nbsp;"
  End If
  M = M & "</td></tr>" 
  M = M & HTMLRow("年齡層(年級) &Acirc;mbito et&aacute;rio", "ageClass")
  M = M & HTMLRow("參觀日期 Data de Visita:", "visitDate")
  M = M & HTMLRow("到館時間 Hora de chegada:", "arrivalTime")
  M = M & HTMLRow("離館時間 Hora de sa&iacute;da:", "leaveTime")
  M = M & "<tr><th valign=top align=right>導賞服務 Servi&ccedil;o de guia:</td>"
  ' M = M & "<td><input type='checkbox' " & IIF(Request("firstFloor")="ON","checked","") & ">郵政專題展區 Servi&ccedil;os postais&nbsp;"
  ' M = M & "<input type='checkbox' " & IIF(Request("secondFloor")="ON", "checked", "") & "> 電訊專題展區 Telecomunica&ccedil;&otilde;es" 
  M = M & "<td><b>展覽項目編號 C&oacute;digo de Actividade</b>:" & Server.HTMLEncode(Request.Form("activityCode"))
  M = M & "<br><input type='checkbox' " & IIF(Request("firstTime")="ON", "checked", "") & "> 第一次參觀博物館 Visita pela primeira vez</td></tr>" 
  M = M & "<tr><th valign=top align=right>導賞語言 Idiomas</td>"
  M = M & "<td><input type='checkbox' " & IIF(Request("cantonese")="ON","checked", "") & "> 廣東話 &nbsp;"
  M = M & "<input type='checkbox' " & IIF(Request("putonghua")="ON","checked", "") & ">普通話 &nbsp;"
  M = M & "<input type='checkbox' " & IIF(Request("portuguese")="ON","checked", "") & "> Portugu&ecirc;s  &nbsp;"
  M = M & "<input type='checkbox' " & IIF(Request("english")="ON","checked","") & ">English</td></tr>" 
  M = M & HTMLRow("特別需要 Necessidades especiais:", "remarks")
  M = M & "</body>"
  M = M & "</html>"  
  GetMailBody = M
End Function

Function ValidateInput(Language) 
   Dim ArrivalTime, LeaveTime
   ValidateInput = ""
   if Request.Form("name")="" then
       ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, NAME_REQUIRED)
   end if
   if Request.Form("address")="" then
       ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, ADDRESS_REQUIRED)
   end if

   if Request.Form("contactPerson")="" then
       ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, CONTACTPERSON_REQUIRED)
   end if
   if Request.Form("contactPhone")="" then
       ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, CONTACTPHONE_REQUIRED)
   end if

   if Request.Form("email")<>"" then
   '    ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, EMAIL_REQUIRED)
   'else
       if not IsValidEmail(Request.Form("email")) then
         ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_EMAIL)
       end if
   end if
   if Request.Form("visitorsCount")="" then
      ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, VISITORCOUNT_REQUIRED)
   else 
       'if not IsValidInteger(Request.Form("visitorsCount")) then
       '  ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_VISITORCOUNT)
       'end if
   end if

   if Request.Form("teachersCount")="" then
      ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, TEACHERCOUNT_REQUIRED)
   else 
       'if not IsValidInteger(Request.Form("teachersCount")) then
       '  ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_TEACHERCOUNT)
       'end if
   end if
   if Request.Form("visitDate")="" then
      ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, VISITDATE_REQUIRED)
   else 
       if not IsValidFutureDate(Request.Form("visitDate")) then
         ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_VISITDATE)
       end if
   end if
   if Request.Form("arrivalTime")="" then
      ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, ARRIVALTIME_REQUIRED)
   else 
       if not IsValidTime(Request.Form("arrivalTime")) then
         ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_ARRIVALTIME)
       else
         ArrivalTime = CDate(Request.Form("arrivalTime"))
       end if
   end if
   if Request.Form("leaveTime")="" then
      ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, LEAVETIME_REQUIRED)
   else 
       if not IsValidTime(Request.Form("leaveTime")) then
         ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, INVALID_LEAVETIME)
       else
          LeaveTime = CDate(Request.Form("leaveTime"))
       end if
   end if
   if LeaveTime<ArrivalTime then
	ValidateInput = ValidateInput & "<li>" & GetErrorMessage(Language, LEAVETIME_CANNOTEARLIER_ARRIVALTIME)
   end if
End Function

Function setCookies()
	Dim appFax
	Dim appEmail
	If Request.Form("fax")<>"" Then
	  appFax = Server.HTMLEncode(Request.Form("fax"))
	Else
	  appFax = ""
	End if
	If Request.Form("email")<>"" Then
	  appEmail = Server.HTMLEncode(Request.Form("email"))
	Else
	  appEmail = ""
	End if
	Response.Cookies("Applicant")("schoolId") = Server.HTMLEncode(Request.Form("schoolId")(1))
	Response.Cookies("Applicant")("name") = Server.HTMLEncode(Request.Form("name"))
	Response.Cookies("Applicant")("address") = Server.HTMLEncode(Request.Form("address"))
	Response.Cookies("Applicant")("contactPerson") = Server.HTMLEncode(Request.Form("contactPerson"))
	Response.Cookies("Applicant")("contactPhone") = Server.HTMLEncode(Request.Form("contactPhone"))
	Response.Cookies("Applicant")("fax") = appFax
	Response.Cookies("Applicant")("email") = appEmail
	if Server.HTMLEncode(Request.Form("cantonese"))="ON" then
	  Response.Cookies("Applicant")("cantonese") = "ON"
	else
	  Response.Cookies("Applicant")("cantonese")= ""
	end if
	if Server.HTMLEncode(Request.Form("putonghua"))="ON" then
	  Response.Cookies("Applicant")("putonghua") = "ON"
	else
	  Response.Cookies("Applicant")("putonghua")= ""
	end if
	if Server.HTMLEncode(Request.Form("portuguese"))="ON" then
	  Response.Cookies("Applicant")("portuguese") = "ON"
	else
	  Response.Cookies("Applicant")("portuguese")= ""
	end if
	if Server.HTMLEncode(Request.Form("english"))="ON" then
	  Response.Cookies("Applicant")("english") = "ON"
	else
	  Response.Cookies("Applicant")("english")= ""
	end if
	Response.Cookies("Applicant").Expires = Date + 365
End Function

Dim InputForm 
Dim ErrorMessage
Dim Language
Dim UrlParts
Dim Subject
Dim Result

InputForm = Request.ServerVariables("HTTP_REFERER")
Language = Request.Form("Language")
if Language="" then
   Language = "eng"
End If

ErrorMessage = ValidateInput(Language)
UrlParts = split(InputForm,"?") 
if UBound(UrlParts)>0 then
   InputForm = urlParts(0)
end if

Session("ErrorMsg") = ErrorMessage


%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META HTTP-EQUIV="content-type" CONTENT="text/html; charset=utf-8">
<%
  Response.Write("<link rel='stylesheet' type='text/css' href='/" & Language & "/default.css'>")
%>
</head>
<body>
<%
if ErrorMessage="" then
   On Error Resume Next
   Err.Clear
		
   setCookies()
   Subject = "團體及學校參觀申請表 - " & Request.Form("name") & " (" & Request.Form("visitDate") & ")"
   Result = SendMail(GetMailBody(True), Subject, "", "info@macao.communications.museum")
   
   If Err.Number <> 0 then
	Response.Write("<p><font color='red'><b><big>" & GetErrorMessage(Language, UNKNOWN_ERROR) & "<BR><BR>" & Err.Number & "-" & Err.Description & "</big></b></font></p>")
	Err.Clear
   Else
	Response.Write("<p><b>" & GetErrorMessage(Language, SUCCESS_MSG) & "</b></p>")
   End If
   Response.Write("<p><button onclick='javascript:history.go(-1)'>" & GetErrorMessage(Language, BACK_BUTTON) & "</button></p>")   
   if Request.Form("email")<>"" Then
	' Automatic reply
	Result=SendMail(GetMailBody(False), GetErrorMessage(Language, SUCCESS_SUBJECT), "info@macao.communications.museum", Request.Form("email"))
   end if
   On Error Goto 0
Else
   Response.Redirect InputForm & "?" & Request.Form 
end if

'if IsValidFutureDate("1/1/2007") then
'	Response.Write("OK1")
'end if

'if IsValidFutureDate("1/1/2008") then
'	Response.Write("OK2")
'end if

'if IsValidFutureDate("aa") then
'	Response.Write("OK3")
'end if

'if IsValidFutureDate("31/12/2007") then
'	Response.Write("OK4")
'end if


'if IsValidFutureDate("12/31/2007") then
'	Response.Write("OK5")
'end if


%>
</body>
</html>